home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / tech / bd / getinfo3.pas < prev    next >
Pascal/Delphi Source File  |  1989-12-28  |  34KB  |  1,124 lines
  1. Unit GetInfo3; {                                      GetInfo3.pas
  2. ------------- }
  3.  
  4. { This UNIT contains city information and should be used to add
  5.    any NEW DX prefixes.  Don't enter new Prefix info in GETINFO1
  6.    or GETINFO2, since these are quite large already & you can get
  7.    a Pascal compiler error if they get too big }
  8.  
  9.  
  10. {$N+}
  11. {$E+}
  12.  
  13.  
  14. Interface {
  15. --------- }
  16. Uses CRT,SysDD;
  17.  
  18. Procedure Get_DX_Info3;
  19.  
  20. Implementation {
  21. -------------- }
  22.  
  23. Procedure Get_DX_Info3;
  24.  
  25.  
  26. Begin {Get_DX_Info3}
  27. Not_Found := False; {Initialize}
  28.  
  29. If      Prefix = 'FORT SMITH' Then { Prefix/City MUST be entered in CAPS here}
  30.                Begin
  31.                B  := 34.73;                            { Latitude}
  32.                L2 := 92.29;                            { Longitude}
  33.                Country := 'Fort Smith, AR';       { City}
  34.                Other_Stn_Time_Corr := -5;          { Time Correction}
  35.                End
  36.  
  37. Else If Prefix = 'HARTFORD' Then    {State-side cities can also be enter vs Prefix}
  38.                Begin
  39.                B  := 41.8;
  40.                L2 := 72.7;
  41.                Country := 'Hartford, Conn';
  42.                Other_Stn_Time_Corr := -5;
  43.                End
  44. Else If Prefix = 'BANGOR' Then
  45.                Begin
  46.                B  := 44.8;
  47.                L2 := 68.8;
  48.                Country := 'Bangor, Maine';
  49.                Other_Stn_Time_Corr := -5;
  50.                End
  51. Else If Prefix = 'BOSTON' Then
  52.                Begin
  53.                B  := 42.4;
  54.                L2 := 71.1;
  55.                Country := 'Boston, Mass.';
  56.                Other_Stn_Time_Corr := -5;
  57.                End
  58. Else If Prefix = 'CONCORD' Then
  59.                Begin
  60.                B  := 43.2;
  61.                L2 := 71.5;
  62.                Country := 'Concord, N.H.';
  63.                Other_Stn_Time_Corr := -5;
  64.                End
  65. Else If Prefix = 'PROVIDENCE' Then
  66.                Begin
  67.                B  := 41.8;
  68.                L2 := 71.4;
  69.                Country := 'Providence, R.I.';
  70.                Other_Stn_Time_Corr := -5;
  71.                End
  72. Else If Prefix = 'NEW YORK' Then
  73.                Begin
  74.                B  := 40.8;
  75.                L2 := 74.0;
  76.                Country := 'New York, N.Y.';
  77.                Other_Stn_Time_Corr := -5;
  78.                End
  79. Else If Prefix = 'SYRACUSE' Then
  80.                Begin
  81.                B  := 43.1;
  82.                L2 := 76.2;
  83.                Country := 'Syracuse, N.Y.';
  84.                Other_Stn_Time_Corr := -5;
  85.                End
  86. Else If Prefix = 'WILMINGTON' Then
  87.                Begin
  88.                B  := 39.7;
  89.                L2 := 75.5;
  90.                Country := 'Wilmington, Del.';
  91.                Other_Stn_Time_Corr := -5;
  92.                End
  93. Else If Prefix = 'WASHINGTON DC' Then
  94.                Begin
  95.                B  := 38.9;
  96.                L2 := 77.0;
  97.                Country := 'Washington,DC';
  98.                Other_Stn_Time_Corr := -5;
  99.                End
  100. Else If Prefix = 'BALTIMORE' Then
  101.                Begin
  102.                B  := 39.3;
  103.                L2 := 76.6;
  104.                Country := 'Baltimore, Maryland';
  105.                Other_Stn_Time_Corr := -5;
  106.                End
  107. Else If Prefix = 'HARRISBURG' Then
  108.                Begin
  109.                B  := 40.3;
  110.                L2 := 76.9;
  111.                Country := 'Harrisburg, Penn';
  112.                Other_Stn_Time_Corr := -5;
  113.                End
  114. Else If Prefix = 'PHILADELPHIA' Then
  115.                Begin
  116.                B  := 39.9;
  117.                L2 := 75.2;
  118.                Country := 'Philadelphia, Penn.';
  119.                Other_Stn_Time_Corr := -5;
  120.                End
  121. Else If Prefix = 'PITTSBURG' Then
  122.                Begin
  123.                B  := 40.4;
  124.                L2 := 80.0;
  125.                Country := 'Pittsburg, Penn.';
  126.                Other_Stn_Time_Corr := -5;
  127.                End
  128. Else If Prefix = 'SCRANTON' Then
  129.                Begin
  130.                B  := 41.4;
  131.                L2 := 75.7;
  132.                Country := 'Scranton, Penn';
  133.                Other_Stn_Time_Corr := -5;
  134.                End
  135. Else If Prefix = 'MONTGOMERY' Then
  136.                Begin
  137.                B  := 32.4;
  138.                L2 := 86.3;
  139.                Country := 'Montgomery, Ala.';
  140.                Other_Stn_Time_Corr := -6;
  141.                End
  142. Else If Prefix = 'JACKSONVILLE' Then
  143.                Begin
  144.                B  := 30.3;
  145.                L2 := 81.7;
  146.                Country := 'Jacksonville,Fla.';
  147.                Other_Stn_Time_Corr := -5;
  148.                End
  149. Else If Prefix = 'MIAMI' Then
  150.                Begin
  151.                B  := 25.8;
  152.                L2 := 80.2;
  153.                Country := 'Miami,Fla.';
  154.                Other_Stn_Time_Corr := -5;
  155.                End
  156. Else If Prefix = 'PENSACOLA' Then
  157.                Begin
  158.                B  := 30.4;
  159.                L2 := 87.2;
  160.                Country := 'Pensacola, Fla.';
  161.                Other_Stn_Time_Corr := -5;
  162.                End
  163. Else If Prefix = 'ATLANTA' Then
  164.                Begin
  165.                B  := 33.8;
  166.                L2 := 84.4;
  167.                Country := 'Atlanta, Ga';
  168.                Other_Stn_Time_Corr := -5;
  169.                End
  170. Else If Prefix = 'SAVANNAH' Then
  171.                Begin
  172.                B  := 32.1;
  173.                L2 := 81.1;
  174.                Country := 'Savannah, Ga';
  175.                Other_Stn_Time_Corr := -5;
  176.                End
  177. Else If Prefix = 'LEXINGTON' Then
  178.                Begin
  179.                B  := 38.0;
  180.                L2 := 84.5;
  181.                Country := 'Lexington, Ke';
  182.                Other_Stn_Time_Corr := -5;
  183.                End
  184. Else If Prefix = 'LOUISVILLE' Then
  185.                Begin
  186.                B  := 38.2;
  187.                L2 := 85.8;
  188.                Country := 'Louisville, Ke';
  189.                Other_Stn_Time_Corr := -5;
  190.                End
  191. Else If Prefix = 'CHARLOTTE' Then
  192.                Begin
  193.                B  := 35.2;
  194.                L2 := 80.8;
  195.                Country := 'Charlotte, NC';
  196.                Other_Stn_Time_Corr := -5;
  197.                End
  198. Else If Prefix = 'RALEIGH' Then
  199.                Begin
  200.                B  := 35.8;
  201.                L2 := 78.6;
  202.                Country := 'Raleigh, NC';
  203.                Other_Stn_Time_Corr := -5;
  204.                End
  205. Else If Prefix = 'COLUMBIA' Then
  206.                Begin
  207.                B  := 34.0;
  208.                L2 := 81.0;
  209.                Country := 'Columbia, SC';
  210.                Other_Stn_Time_Corr := -5;
  211.                End
  212. Else If Prefix = 'KNOXVILLE' Then
  213.                Begin
  214.                B  := 36.0;
  215.                L2 := 81.9;
  216.                Country := 'Knoxville, Tenn';
  217.                Other_Stn_Time_Corr := -6;
  218.                End
  219. Else If Prefix = 'MEMPHIS' Then
  220.                Begin
  221.                B  := 35.1;
  222.                L2 := 90.1;
  223.                Country := 'Memphis, Tenn';
  224.                Other_Stn_Time_Corr := -6;
  225.                End
  226. Else If Prefix = 'NASHVILLE' Then
  227.                Begin
  228.                B  := 36.2;
  229.                L2 := 86.8;
  230.                Country := 'Nashville, Tenn';
  231.                Other_Stn_Time_Corr := -6;
  232.                End
  233. Else If Prefix = 'NORFOLK' Then
  234.                Begin
  235.                B  := 36.9;
  236.                L2 := 76.3;
  237.                Country := 'Norfolk, Va';
  238.                Other_Stn_Time_Corr := -5;
  239.                End
  240. Else If Prefix = 'RICHMOND' Then
  241.                Begin
  242.                B  := 37.5;
  243.                L2 := 77.4;
  244.                Country := 'Richmond, Va';
  245.                Other_Stn_Time_Corr := -5;End
  246. Else If Prefix = 'LITTLE ROCK' Then
  247.                Begin
  248.                B  := 34.7;
  249.                L2 := 92.3;
  250.                Country := 'Litle Rock, Ark';
  251.                Other_Stn_Time_Corr := -6;End
  252. Else If Prefix = 'NEW ORLEANS' Then
  253.                Begin
  254.                B  := 29.9;
  255.                L2 := 90.1;
  256.                Country := 'New Orleans, La';
  257.                Other_Stn_Time_Corr := -6;
  258.                End
  259. Else If Prefix = 'SHREVEPORT' Then
  260.                Begin
  261.                B  := 32.5;
  262.                L2 := 93.7;
  263.                Country := 'Shreveport, La';
  264.                Other_Stn_Time_Corr := -6;
  265.                End
  266. Else If Prefix = 'JACKSON' Then
  267.                Begin
  268.                B  := 32.3;
  269.                L2 := 90.2;
  270.                Country := 'Jackson, Miss';
  271.                Other_Stn_Time_Corr := -6;
  272.                End
  273. Else If Prefix = 'ALBUQUERQUE' Then
  274.                Begin
  275.                B  := 35.1;
  276.                L2 := 106.7;
  277.                Country := 'Albuquerque, NM';
  278.                Other_Stn_Time_Corr := -6;
  279.                End
  280. Else If Prefix = 'OKLAHOMA CITY' Then
  281.                Begin
  282.                B  := 35.5;
  283.                L2 := 97.5;
  284.                Country := 'Oklahoma City, Okla.';
  285.                Other_Stn_Time_Corr := -6;
  286.                End
  287. Else If Prefix = 'ABILENE' Then
  288.                Begin
  289.                B  := 32.5;
  290.                L2 := 99.7;
  291.                Country := 'Abilene, Texas';
  292.                Other_Stn_Time_Corr := -6;
  293.                End
  294. Else If Prefix = 'AMARILLO' Then
  295.                Begin
  296.                B  := 35.2;
  297.                L2 := 101.8;
  298.                Country := 'Amarillo, Tx';
  299.                Other_Stn_Time_Corr := -6;
  300.                End
  301. Else If Prefix = 'DALLAS' Then
  302.                Begin
  303.                B  := 32.8;
  304.                L2 := 96.8;
  305.                Country := 'Dallas,Tx';
  306.                Other_Stn_Time_Corr := -6;
  307.                End
  308. Else If Prefix = 'EL PASO' Then
  309.                Begin
  310.                B  := 31.8;
  311.                L2 := 106.5;
  312.                Country := 'El Paso, Tx';
  313.                Other_Stn_Time_Corr := -6;
  314.                End
  315. Else If Prefix = 'SAN ANTONIO' Then
  316.                Begin
  317.                B  := 29.4;
  318.                L2 := 98.5;
  319.                Country := 'San Antonio, Tx';
  320.                Other_Stn_Time_Corr := -6;
  321.                End
  322. Else If Prefix = 'LOS ANGELES' Then
  323.                Begin
  324.                B  := 34.1;
  325.                L2 := 118.2;
  326.                Country := 'Los Angeles, Ca';
  327.                Other_Stn_Time_Corr := -8;
  328.                End
  329. Else If Prefix = 'SAN FRANCISCO' Then
  330.                Begin
  331.                B  := 37.8;
  332.                L2 := 122.4;
  333.                Country := 'San Francisco,Ca';
  334.                Other_Stn_Time_Corr := -8;
  335.                End
  336. Else If Prefix = 'FLAGSTAFF' Then
  337.                Begin
  338.                B  := 35.2;
  339.                L2 := 111.7;
  340.                Country := 'Flagstaff, Ariz';
  341.                Other_Stn_Time_Corr := -7;
  342.                End
  343. Else If Prefix = 'PHOENIX' Then
  344.                Begin
  345.                B  := 33.5;
  346.                L2 := 112.1;
  347.                Country := 'Phoenix, Ariz.';
  348.                Other_Stn_Time_Corr := -7;
  349.                End
  350. Else If Prefix = 'BOISE' Then
  351.                Begin
  352.                B  := 43.6;
  353.                L2 := 116.2;
  354.                Country := 'Boise, ID';
  355.                Other_Stn_Time_Corr := -7;
  356.                End
  357. Else If Prefix = 'GREAT FALLS' Then
  358.                Begin
  359.                B  := 47.5;
  360.                L2 := 111.3;
  361.                Country := 'Great Falls, Mont.';
  362.                Other_Stn_Time_Corr := -7;
  363.                End
  364. Else If Prefix = 'LAS VEGAS' Then
  365.                Begin
  366.                B  := 36.2;
  367.                L2 := 115.1;
  368.                Country := 'Las Vegas, Nev.';
  369.                Other_Stn_Time_Corr := -8;
  370.                End
  371. Else If Prefix = 'RENO' Then
  372.                Begin
  373.                B  := 39.5;
  374.                L2 := 119.8;
  375.                Country := 'Reno, Nev.';
  376.                Other_Stn_Time_Corr := -8;
  377.                End
  378. Else If Prefix = 'PORTLAND' Then
  379.                Begin
  380.                B  := 45.5;
  381.                L2 := 122.7;
  382.                Country := 'Portland, Ore.';
  383.                Other_Stn_Time_Corr := -8;
  384.                End
  385. Else If Prefix = 'SALT LAKE' Then
  386.                Begin
  387.                B  := 40.8;
  388.                L2 := 111.9;
  389.                Country := 'Salt Lake, Utah';
  390.                Other_Stn_Time_Corr := -7;
  391.                End
  392. Else If Prefix = 'SEATTLE' Then
  393.                Begin
  394.                B  := 47.6;
  395.                L2 := 122.3;
  396.                Country := 'Seattle, Wash';
  397.                Other_Stn_Time_Corr := -8;
  398.                End
  399. Else If Prefix = 'SPOKANE' Then
  400.                Begin
  401.                B  := 47.7;
  402.                L2 := 117.4;
  403.                Country := 'Spokane, Wash.';
  404.                Other_Stn_Time_Corr := -8;
  405.                End
  406. Else If Prefix = 'CHEYENNE' Then
  407.                Begin
  408.                B  := 41.1;
  409.                L2 := 104.8;
  410.                Country := 'Cheyenne, Wyoming';
  411.                Other_Stn_Time_Corr := -7;
  412.                End
  413. Else If Prefix = 'SHERIDAN' Then
  414.                Begin
  415.                B  := 44.8;
  416.                L2 := 107.0;
  417.                Country := 'Sheridan, WY';
  418.                Other_Stn_Time_Corr := -7;
  419.                End
  420. Else If Prefix = 'DETROIT' Then
  421.                Begin
  422.                B  := 42.3;
  423.                L2 := 83.0;
  424.                Country := 'Detroit, Mi';
  425.                Other_Stn_Time_Corr := -5;
  426.                End
  427. Else If Prefix = 'CLEVELAND' Then
  428.                Begin
  429.                B  := 41.5;
  430.                L2 := 81.7;
  431.                Country := 'Cleveland, Ohio';
  432.                Other_Stn_Time_Corr := -5;
  433.                End
  434. Else If Prefix = 'CHARLESTON' Then
  435.                Begin
  436.                B  := 38.4;
  437.                L2 := 81.6;
  438.                Country := 'Charleston,W Va';
  439.                Other_Stn_Time_Corr := -5;
  440.                End
  441. Else If Prefix = 'CHICAGO' Then
  442.                Begin
  443.                B  := 41.9;
  444.                L2 := 87.6;
  445.                Country := 'Chicago, Ill.';
  446.                Other_Stn_Time_Corr := -6;
  447.                End
  448. Else If Prefix = 'INDIANAPOLIS' Then
  449.                Begin
  450.                B  := 39.8;
  451.                L2 := 86.2;
  452.                Country := 'Indianapolis, Ind.';
  453.                Other_Stn_Time_Corr := -5;
  454.                End
  455. Else If Prefix = 'MILWAUKEE' Then
  456.                Begin
  457.                B  := 43.0;
  458.                L2 := 87.9;
  459.                Country := 'Milwaukee, Wis.';
  460.                Other_Stn_Time_Corr := -6;
  461.                End
  462. Else If Prefix = 'DENVER' Then
  463.                Begin
  464.                B  := 39.7;
  465.                L2 := 105.0;
  466.                Country := 'Denver, Col.';
  467.                Other_Stn_Time_Corr := -7;
  468.                End
  469. Else If Prefix = 'GRAND JUNCTION' Then
  470.                Begin
  471.                B  := 39.1;
  472.                L2 := 108.6;
  473.                Country := 'Grand Junction, Col.';
  474.                Other_Stn_Time_Corr := -7;
  475.                End
  476. Else If Prefix = 'DES MOINES' Then
  477.                Begin
  478.                B  := 41.6;
  479.                L2 := 93.6;
  480.                Country := 'Des Moines, Iowa';
  481.                Other_Stn_Time_Corr := -6;
  482.                End
  483. Else If Prefix = 'WICHITA' Then
  484.                Begin
  485.                B  := 37.7;
  486.                L2 := 97.3;
  487.                Country := 'Wichita, Kan.';
  488.                Other_Stn_Time_Corr := -6;
  489.                End
  490. Else If Prefix = 'DULUTH' Then
  491.                Begin
  492.                B  := 46.8;
  493.                L2 := 92.1;
  494.                Country := 'Duluth, Minn.';
  495.                Other_Stn_Time_Corr := -6;
  496.                End
  497. Else If Prefix = 'MINNEAPOLIS' Then
  498.                Begin
  499.                B  := 45.0;
  500.                L2 := 93.3;
  501.                Country := 'Minneapolis, Minn.';
  502.                Other_Stn_Time_Corr := -6;
  503.                End
  504. Else If Prefix = 'KANSAS CITY' Then
  505.                Begin
  506.                B  := 39.1;
  507.                L2 := 94.6;
  508.                Country := 'Kansas City, Mo';
  509.                Other_Stn_Time_Corr := -6;
  510.                End
  511. Else If Prefix = 'OMAHA' Then
  512.                Begin
  513.                B  := 41.3;
  514.                L2 := 95.9;
  515.                Country := 'Omaha, Neb.';
  516.                Other_Stn_Time_Corr := -6;
  517.                End
  518. Else If Prefix = 'FARGO' Then
  519.                Begin
  520.                B  := 46.9;
  521.                L2 := 96.8;
  522.                Country := 'Fargo, ND';
  523.                Other_Stn_Time_Corr := -7;
  524.                End
  525. Else If Prefix = 'RAPID CITY' Then
  526.                Begin
  527.                B  := 44.1;
  528.                L2 := 103.2;
  529.                Country := 'Rapid City, SD';
  530.                Other_Stn_Time_Corr := -7;
  531.                End
  532. Else If Prefix = 'ANCHORAGE' Then
  533.                Begin
  534.                B  := 60.25;
  535.                L2 := 145.92;
  536.                Country := 'Anchorage ';
  537.                Other_Stn_Time_Corr := -10;
  538.                End
  539. Else If Prefix = 'SAN DIEGO' Then
  540.                Begin
  541.                B  := 32.72;
  542.                L2 := 117.14;
  543.                Country := 'San Diego ';
  544.                Other_Stn_Time_Corr := -8;
  545.                End
  546. Else If Prefix = 'SACRAMENTO' Then
  547.                Begin
  548.                B  := 38.64;
  549.                L2 := 121.45;
  550.                Country := 'Sacramento ';
  551.                Other_Stn_Time_Corr := -8;
  552.                End
  553. Else If Prefix = 'JACKSONVILLE' Then
  554.                Begin
  555.                B  := 30.33;
  556.                L2 := 81.67;
  557.                Country := 'Jacksonville ';
  558.                Other_Stn_Time_Corr := -5;
  559.                End
  560. Else If Prefix = 'TRAVERSE CITY' Then
  561.                Begin
  562.                B  := 44.75;
  563.                L2 := 85.64;
  564.                Country := 'Traverse City, Mich ';
  565.                Other_Stn_Time_Corr := -6;
  566.                End
  567. Else If Prefix = '1S' Then
  568.                Begin
  569.                B  := 8.63;
  570.                L2 := -111.9;
  571.                Country := 'Spratley ';
  572.                Other_Stn_Time_Corr := 0;
  573.                End
  574. Else If Prefix = '3A' Then
  575.                Begin
  576.                B  := 43.7;
  577.                L2 := -7.4;
  578.                Country := 'Monaco ';
  579.                Other_Stn_Time_Corr := 1;
  580.                End
  581. Else If Prefix = '3B6' Then
  582.                Begin
  583.                B  := -10.4;
  584.                L2 := -56.6;
  585.                Country := 'St. Brandon & Agalega ';
  586.                Other_Stn_Time_Corr := 0;
  587.                End
  588. Else If Prefix = '3B7' Then
  589.                Begin
  590.                B  := -10.4;
  591.                L2 := -56.6;
  592.                Country := 'St. Brandon & Agalega ';
  593.                Other_Stn_Time_Corr := 0;
  594.                End
  595. Else If Prefix = '3B8' Then
  596.                Begin
  597.                B  := -20.5;
  598.                L2 := -58;
  599.                Country := 'Mauritius ';
  600.                Other_Stn_Time_Corr := 4;
  601.                End
  602. Else If Prefix = '3B9' Then
  603.                Begin
  604.                B  := -19.7;
  605.                L2 := -63.4;
  606.                Country := 'Rodiguez Isl,';
  607.                Other_Stn_Time_Corr := 0;
  608.                End
  609. Else If Prefix = '3C' Then
  610.                Begin
  611.                B  := 2;
  612.                L2 := -9;
  613.                Country := 'Equatorial Guinea ';
  614.                Other_Stn_Time_Corr := 1;
  615.                End
  616. Else If Prefix = '3C0' Then
  617.                Begin
  618.                B  := -1.4;
  619.                L2 := -5.6;
  620.                Country := 'Annobon  or Pagalu Isl.';
  621.                Other_Stn_Time_Corr := 0;
  622.                End
  623. Else If Prefix = '3D2' Then
  624.                Begin
  625.                B  := -17;
  626.                L2 := -178;
  627.                Country := 'Fiji ';
  628.                Other_Stn_Time_Corr := 12;
  629.                End
  630. Else If Prefix = '3D6' Then
  631.                Begin
  632.                B  := -27;
  633.                L2 := -32;
  634.                Country := 'Swaziland ';
  635.                Other_Stn_Time_Corr := 2;
  636.                End
  637. Else If Prefix = '3DA0' Then
  638.                Begin
  639.                B  := -27;
  640.                L2 := -32;
  641.                Country := 'Swaziland ';
  642.                Other_Stn_Time_Corr := 2;
  643.                End
  644. Else If Prefix = '3V' Then
  645.                Begin
  646.                B  := 35;
  647.                L2 := -10;
  648.                Country := 'Tunisia ';
  649.                Other_Stn_Time_Corr := 1;
  650.                End
  651. Else If Prefix = '3W' Then
  652.                Begin
  653.                B  := 13;
  654.                L2 := -108;
  655.                Country := ' Vietnam';
  656.                Other_Stn_Time_Corr := 7;
  657.                End
  658. Else If Prefix = '3X' Then
  659.                Begin
  660.                B  := 11;
  661.                L2 := 10;
  662.                Country := 'Rep. of Guinea ';
  663.                Other_Stn_Time_Corr := 0;
  664.                End
  665. Else If Prefix = '3Y' Then
  666.                Begin
  667.                B  := -54.45;
  668.                L2 := -3.4;
  669.                Country := 'Bouvet; also Peter Isl. Antarctic ';
  670.                Other_Stn_Time_Corr := 0;
  671.                End
  672. Else If Prefix = '4S' Then
  673.                Begin
  674.                B  := 7;
  675.                L2 := -81;
  676.                Country := '*Sri Lanka ';
  677.                Other_Stn_Time_Corr := 5 ;
  678.                End
  679. Else If Prefix = '4U' Then
  680.                Begin
  681.                B  := 41.2;
  682.                L2 := -6.15;
  683.                Country := 'Geneva ';
  684.                Other_Stn_Time_Corr := 2;
  685.                End
  686. Else If Prefix = '4W' Then
  687.                Begin
  688.                B  := 15;
  689.                L2 := -44;
  690.                Country := 'Yemen ';
  691.                Other_Stn_Time_Corr := 3;
  692.                End
  693. Else If Prefix = '4X' Then
  694.                Begin
  695.                B  := 32;
  696.                L2 := -35;
  697.                Country := 'Israel ';
  698.                Other_Stn_Time_Corr := 2 ;
  699.                End
  700. Else If Prefix = '4Z' Then
  701.                Begin
  702.                B  := 32;
  703.                L2 := -35;
  704.                Country := 'Israel ';
  705.                Other_Stn_Time_Corr := 2;
  706.                End
  707. Else If Prefix = '5A' Then
  708.                Begin
  709.                B  := 32.5;
  710.                L2 := -13;
  711.                Country := 'Libya ';
  712.                Other_Stn_Time_Corr := 2 ;
  713.                End
  714. Else If Prefix = '5B' Then
  715.                Begin
  716.                B  := 35;
  717.                L2 := -33;
  718.                Country := 'Cyprus ';
  719.                Other_Stn_Time_Corr := 2 ;
  720.                End
  721. Else If Prefix = '5H' Then
  722.                Begin
  723.                B  := -7;
  724.                L2 := -38;
  725.                Country := 'Tanzania ';
  726.                Other_Stn_Time_Corr :=  3;
  727.                End
  728. Else If Prefix = '5N' Then
  729.                Begin
  730.                B  := 7;
  731.                L2 := -5;
  732.                Country := 'Nigeria ';
  733.                Other_Stn_Time_Corr := 1;
  734.                End
  735. Else If Prefix = '5R' Then
  736.                Begin
  737.                B  := -19;
  738.                L2 := -47.5;
  739.                Country := 'Madagascar ';
  740.                Other_Stn_Time_Corr := 3;
  741.                End
  742. Else If Prefix = '5T' Then
  743.                Begin
  744.                B  := 18;
  745.                L2 := 15;
  746.                Country := 'Mauritania ';
  747.                Other_Stn_Time_Corr := 0;
  748.                End
  749. Else If Prefix = '5U' Then
  750.                Begin
  751.                B  := 15;
  752.                L2 := -7;
  753.                Country := 'Niger Rep. ';
  754.                Other_Stn_Time_Corr := 1;
  755.                End
  756. Else If Prefix = '5V' Then
  757.                Begin
  758.                B  := 7;
  759.                L2 := 1.5;
  760.                Country := 'Togo Rep. ';
  761.                Other_Stn_Time_Corr := 0;
  762.                End
  763. Else If Prefix = '5W' Then
  764.                Begin
  765.                B  := -13.9;
  766.                L2 := 172;
  767.                Country := 'W. Samoa ';
  768.                Other_Stn_Time_Corr := -11;
  769.                End
  770. Else If Prefix = '5X' Then
  771.                Begin
  772.                B  := 5;
  773.                L2 := -32;
  774.                Country := 'Uganda ';
  775.                Other_Stn_Time_Corr := 3;
  776.                End
  777. Else If Prefix = '5Z' Then
  778.                Begin
  779.                B  := -2.5;
  780.                L2 := -38;
  781.                Country := 'Kenya ';
  782.                Other_Stn_Time_Corr := 3;
  783.                End
  784. Else If Prefix = '6O' Then
  785.                Begin
  786.                B  := 2.5;
  787.                L2 := -46;
  788.                Country := 'Somali ';
  789.                Other_Stn_Time_Corr := 3 ;
  790.                End
  791. Else If Prefix = '6W' Then
  792.                Begin
  793.                B  := 14.5;
  794.                L2 := 17;
  795.                Country := 'Senegal Rep. ';
  796.                Other_Stn_Time_Corr := 0;
  797.                End
  798. Else If Prefix = '6Y' Then
  799.                Begin
  800.                B  := 18.25;
  801.                L2 := 77.3;
  802.                Country := 'Jamaica ';
  803.                Other_Stn_Time_Corr := -5;
  804.                End
  805. Else If Prefix = '7O' Then
  806.                Begin
  807.                B  := 12.75;
  808.                L2 := -45.2;
  809.                Country := 'S. Yemen ';
  810.                Other_Stn_Time_Corr := 3;
  811.                End
  812. Else If Prefix = '7P' Then
  813.                Begin
  814.                B  := -29;
  815.                L2 := -28;
  816.                Country := 'Lesotho ';
  817.                Other_Stn_Time_Corr := 2;
  818.                End
  819. Else If Prefix = '7Q' Then
  820.                Begin
  821.                B  := -15;
  822.                L2 := -35;
  823.                Country := 'Malawi ';
  824.                Other_Stn_Time_Corr := 2;
  825.                End
  826. Else If Prefix = '7X' Then
  827.                Begin
  828.                B  := 36.5;
  829.                L2 := -2.5;
  830.                Country := 'Algeria ';
  831.                Other_Stn_Time_Corr := 0;
  832.                End
  833. Else If Prefix = '7Z' Then
  834.                Begin
  835.                B  := 25;
  836.                L2 := -45;
  837.                Country := 'Saudi Arabia | also 7Z';
  838.                Other_Stn_Time_Corr := 3;
  839.                End
  840. Else If Prefix = '8P' Then
  841.                Begin
  842.                B  := 13.15;
  843.                L2 := 59.55;
  844.                Country := 'Barbados ';
  845.                Other_Stn_Time_Corr := -4;
  846.                End
  847. Else If Prefix = '8Q' Then
  848.                Begin
  849.                B  := 3.25;
  850.                L2 := -73;
  851.                Country := 'Maldive Isl. ';
  852.                Other_Stn_Time_Corr := 5;
  853.                End
  854. Else If Prefix = 'VS9' Then
  855.                Begin
  856.                B  := 3.25;
  857.                L2 := -73;
  858.                Country := 'Maldive Isl. ';
  859.                Other_Stn_Time_Corr := 5;
  860.                End
  861. Else If Prefix = '8R' Then
  862.                Begin
  863.                B  := 5;
  864.                L2 := 59;
  865.                Country := 'Guyana ';
  866.                Other_Stn_Time_Corr := -3;
  867.                End
  868. Else If Prefix = '8Z4' Then
  869.                Begin
  870.                B  := 28;
  871.                L2 := -46;
  872.                Country := 'Saudi Arabia/Iraq N. Zone ';
  873.                Other_Stn_Time_Corr := 3;
  874.                End
  875. Else If Prefix = '9A' Then
  876.                Begin
  877.                B  := 43.9;
  878.                L2 := -12.4;
  879.                Country := 'San Marino ';
  880.                Other_Stn_Time_Corr := 1;
  881.                End
  882. Else If Prefix = 'T77' Then
  883.                Begin
  884.                B  := 43.9;
  885.                L2 := -12.4;
  886.                Country := 'San Marino ';
  887.                Other_Stn_Time_Corr := 1;
  888.                End
  889. Else If Prefix = '9G' Then
  890.                Begin
  891.                B  := 6;
  892.                L2 := 1;
  893.                Country := 'Ghana ';
  894.                Other_Stn_Time_Corr := 0;
  895.                End
  896. Else If Prefix = '9H' Then
  897.                Begin
  898.                B  := 35.8;
  899.                L2 := -14.6;
  900.                Country := 'Malta ';
  901.                Other_Stn_Time_Corr := 1;
  902.                End
  903. Else If Prefix = '9J' Then
  904.                Begin
  905.                B  := -15;
  906.                L2 := -28;
  907.                Country := 'Zambia ';
  908.                Other_Stn_Time_Corr := 2;
  909.                End
  910. Else If Prefix = '9K' Then
  911.                Begin
  912.                B  := 29.5;
  913.                L2 := -47.8;
  914.                Country := 'Kuwait ';
  915.                Other_Stn_Time_Corr := 3;
  916.                End
  917. Else If Prefix = '9L' Then
  918.                Begin
  919.                B  := 8;
  920.                L2 := 12;
  921.                Country := 'Sierra Leone ';
  922.                Other_Stn_Time_Corr := 0;
  923.                End
  924. Else If Prefix = '9M2' Then
  925.                Begin
  926.                B  := 3;
  927.                L2 := -102;
  928.                Country := '*W. Malaysia ';
  929.                Other_Stn_Time_Corr := 8;
  930.                End
  931. Else If Prefix = '9M6' Then
  932.                Begin
  933.                B  := 6;
  934.                L2 := -116;
  935.                Country := '*E. Malaysia ';
  936.                Other_Stn_Time_Corr := 8;
  937.                End
  938. Else If Prefix = '9M8' Then
  939.                Begin
  940.                B  := 6;
  941.                L2 := -116;
  942.                Country := '*E. Malaysia ';
  943.                Other_Stn_Time_Corr := 8;
  944.                End
  945. Else If Prefix = '9N' Then
  946.                Begin
  947.                B  := 28;
  948.                L2 := -84;
  949.                Country := 'Nepal ';
  950.                Other_Stn_Time_Corr := 6;
  951.                End
  952. Else If Prefix = '9Q' Then
  953.                Begin
  954.                B  := -5;
  955.                L2 := -22;
  956.                Country := 'Zaire ';
  957.                Other_Stn_Time_Corr := 1;
  958.                End
  959. Else If Prefix = '9U' Then
  960.                Begin
  961.                B  := -3;
  962.                L2 := -30;
  963.                Country := 'Burundi ';
  964.                Other_Stn_Time_Corr := 2;
  965.                End
  966. Else If Prefix = '9V' Then
  967.                Begin
  968.                B  := 1.35;
  969.                L2 := -103.8;
  970.                Country := '*Singapore ';
  971.                Other_Stn_Time_Corr := 7;
  972.                End
  973. Else If Prefix = '9X' Then
  974.                Begin
  975.                B  := -2.5;
  976.                L2 := -30;
  977.                Country := 'Rwanda ';
  978.                Other_Stn_Time_Corr := 2;
  979.                End
  980. Else If Prefix = '9Y' Then
  981.                Begin
  982.                B  := 11;
  983.                L2 := 62;
  984.                Country := 'Trinidad & Tobago ';
  985.                Other_Stn_Time_Corr := -4;
  986.                End
  987. Else If Prefix = 'J2' Then
  988.                Begin
  989.                B  := 27.5;
  990.                L2 := -50;
  991.                Country := 'Trinidad & Tobago ';
  992.                Other_Stn_Time_Corr := -4;
  993.                End
  994.  
  995. Else If Prefix = 'T30' Then
  996.                Begin
  997.                B  := -5;
  998.                L2 := -175;
  999.                Country := 'W.Kiribati/Gilbert & Ocean Isl. ';
  1000.                Other_Stn_Time_Corr := 12;
  1001.                End
  1002. Else If Prefix = 'T32' Then
  1003.                Begin
  1004.                B  := -10;
  1005.                L2 := 150;
  1006.                Country := 'E. Kiribati/Line Isl. ';
  1007.                Other_Stn_Time_Corr := -10;
  1008.                End
  1009. Else If Prefix = 'T31' Then
  1010.                Begin
  1011.                B  := -4;
  1012.                L2 := 171;
  1013.                Country := 'C. Kirabati ';
  1014.                Other_Stn_Time_Corr := -11;
  1015.                End
  1016. Else If Prefix = 'UW' Then
  1017.                Begin
  1018.                B  := 55.75;
  1019.                L2 := -37.58;
  1020.                Country := 'USSR: UW1-6 European | Also Asiatic;  See UW9 ';
  1021.                Other_Stn_Time_Corr := 3;
  1022.                End
  1023. Else If Prefix = 'UW9' Then
  1024.                Begin
  1025.                B  := 63;
  1026.                L2 := -145;
  1027.                Country := 'USSR: Asiatic ';
  1028.                Other_Stn_Time_Corr := 9;
  1029.                End
  1030. Else If Prefix = 'UV' Then
  1031.                Begin
  1032.                B  := 55.75;
  1033.                L2 := -37.58;
  1034.                Country := 'USSR:  European | Also Asiatic; See UW9';
  1035.                Other_Stn_Time_Corr := 3;
  1036.                End
  1037. Else If Prefix = 'FT8W' Then
  1038.                Begin
  1039.                B  := -46;
  1040.                L2 := -52;
  1041.                Country := 'Crozet Isl. ';
  1042.                Other_Stn_Time_Corr := 3;
  1043.                End
  1044. Else If Prefix = 'FT8X' Then
  1045.                Begin
  1046.                B  := -50;
  1047.                L2 := -70;
  1048.                Country := 'Kerguelen Isl. ';
  1049.                Other_Stn_Time_Corr := 5;
  1050.                End
  1051. Else If Prefix = 'FT8Z' Then
  1052.                Begin
  1053.                B  := -37.8;
  1054.                L2 := -77.5;
  1055.                Country := 'Amsterdam Isl. ';
  1056.                Other_Stn_Time_Corr := 5;
  1057.                End
  1058. Else If Prefix = 'J5' Then
  1059.                Begin
  1060.                B  := 12;
  1061.                L2 := 15;
  1062.                Country := 'Guinea-Bissau ';
  1063.                Other_Stn_Time_Corr := 0;
  1064.                End
  1065. Else If Prefix = 'CR3' Then
  1066.                Begin
  1067.                B  := 12;
  1068.                L2 := 15;
  1069.                Country := 'Guinea-Bissau ';
  1070.                Other_Stn_Time_Corr := 0;
  1071.                End
  1072. Else If Prefix = 'J6' Then
  1073.                Begin
  1074.                B  := 14;
  1075.                L2 := 61;
  1076.                Country := 'St. Lucia ';
  1077.                Other_Stn_Time_Corr := -4;
  1078.                End
  1079. Else If Prefix = 'J7' Then
  1080.                Begin
  1081.                B  := 15.4;
  1082.                L2 := 61.3;
  1083.                Country := 'Dominica ';
  1084.                Other_Stn_Time_Corr := -4;
  1085.                End
  1086. Else If Prefix = 'J8' Then
  1087.                Begin
  1088.                B  := 13.1;
  1089.                L2 := 61.15;
  1090.                Country := 'St Vincent';
  1091.                Other_Stn_Time_Corr := -4;
  1092.                End
  1093. Else If Prefix = 'JD1' Then
  1094.                Begin
  1095.                B  := 27;
  1096.                L2 := -141;
  1097.                Country := 'Ogasawara ';
  1098.                Other_Stn_Time_Corr := 9;
  1099.                End
  1100. Else If Prefix = 'FJ'Then
  1101.                Begin
  1102.                B  := 18.1;
  1103.                L2 := 63.1;
  1104.                Country := 'Bartheleny Isl.';
  1105.                Other_Stn_Time_Corr := 0;
  1106.                End
  1107. Else If Prefix = 'UZ'Then
  1108.                Begin
  1109.                B  := 55.75;
  1110.                L2 := -37.58;
  1111.                Country := ('USSR: European| also Asiatic; See UW9');
  1112.                Other_Stn_Time_Corr := 3;
  1113.                End
  1114.  
  1115. Else    {Prefix not found}
  1116.   Begin
  1117.   Not_Found := True;
  1118.   Exit;
  1119.   End;
  1120.  
  1121.  
  1122.  
  1123. End; {Get_DX_Info3}
  1124. End. {Unit GetInfo3}